C***** MAIN PROG. -- IF RUNIT IS USED AS SEPARATE UNIT. ------
	COMMON /PCIP/ PCH(27,33) /IPT/IPT(27,32) /NDEV/NDEV
	COMMON /Q/BNW(200),NWZ /INS/RINST(27),BG(60) /TYP/SOS,JOUT,LN
	1 /COPY/COPY(30) /COPYL/ICOPYL(30) /NUMP/NUMP
	1 /VV/LIMIT,V(2000) /A/NP(27),XT(27),FRM(80),INVIS(27)
	COMMON /DUR/DUR(27) 
CC	COMMON J,L,CNT(27),BT,IREST,DF,DUR(27) 
	1 /D/TF,AMPFAC,OMIT,DURX,IXIN,FLNM 
	1 /C/T,NWZZ,IT3,T6,NW,TDUR,A,T2,T4,BY,KODE,NPAR,LP,TBG,AC,
	1 NPA,IBX,IDF,PM,NM,PAR,PX2,T1,RD,VIJ2
	COMMON/B/MOT,PR,T5,NINS,I,RA,KZY,NWX,INONLY,MX,Y,Z,FNAME,
	1 MZ,N,IDALL,JC,JG,RB,IJ,IX,BW,NL,RC,W,ZZ,CHN,YY 

	DATA NDEV/5/, MDEV/1/
C************  WRITE(NDEV, IS FOR 'TYPE' STATEMENT **********

	READ(MDEV)FLNM,I,NWZ,NINS,IDALL,BY,JPREC,KZY,LIMIT,NUMP 
	READ(MDEV)(RINST(K),K=1,NINS),(DUR(K),K=1,NINS),(NP(K),K=1,NINS),
	1(BG(K),K=1,NINS),(BNW(K),K=1,NWZ),(V(K),K=1,I),
	1(INVIS(K),K=1,NINS)

1	CALL OUTINF
	CALL RUNIT
	END